---
title: "Covid-19 in Egypt"
author:
- Sherif Embarak^[https://github.com/Sherif-Embarak/]
output:
flexdashboard::flex_dashboard:
theme: lumen
social: menu
source: embed
vertical_layout: scroll
orientation: rows
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
rm(list=ls(all=TRUE))
options(stringsAsFactors = FALSE)
library(ggplot2)
library(plotly)
library(flexdashboard)
library(DT)
library(plotly)
library(knitr)
library(lubridate)
library(crosstalk)
setwd("D:/work/git corona/")
df <- read.csv("eg_covid.csv")
df$Day <- mdy(df$Day)
df$Day <- paste(day(df$Day) , months.Date(df$Day) )
df$Curfew <- as.character(df$Curfew)
df <- df[,1:8]
total_cases <- df$Total.Cases[nrow(df)]
total_deaths <- df$Total.Deaths[nrow(df)]
total_recovered <- df$Total.Recovered[nrow(df)]
closed <- total_deaths+total_recovered
active <- total_cases - closed
library(crosstalk)
hk <- highlight_key(df)
chart1 <-ggplotly(ggplot(hk, aes(x=Day, y=New.Cases, fill=Curfew)) +
geom_bar(stat = "identity")+scale_fill_brewer(palette="Paired")+
theme(axis.text.x = element_text(angle = 70, hjust = 1))) %>%
highlight()
chart2 <-ggplotly(ggplot(hk, aes(x=Day, y=New.Deaths, fill=Curfew)) +
geom_bar(stat = "identity")+scale_fill_brewer(palette="Paired")+
theme(axis.text.x = element_text(angle = 70, hjust = 1))) %>%
highlight()
chart3 <-ggplotly(ggplot(hk, aes(x=Day, y=New.Recovered, fill=Curfew)) +
geom_bar(stat = "identity")+scale_fill_brewer(palette="Paired")+
theme(axis.text.x = element_text(angle = 70, hjust = 1))) %>%
highlight()
chart4 <- ggplotly(ggplot(data=hk, aes(x=Day, y=Total.Cases, group=1))+
geom_line(color="#FF9900", size=1)+theme(axis.text.x = element_text(angle = 70, hjust = 1))+
geom_point(color="#FF9900"))
chart5 <- ggplotly(ggplot(data=hk, aes(x=Day, y=Total.Deaths, group=1))+
geom_line(color="#00DDDD", size=1)+theme(axis.text.x = element_text(angle = 70, hjust = 1))+
geom_point(color="#00DDDD"))
chart6 <- ggplotly(ggplot(data=hk, aes(x=Day, y=Total.Recovered, group=1))+
geom_line(color="#33CCFF", size=1)+theme(axis.text.x = element_text(angle = 70, hjust = 1))+
geom_point(color="#33CCFF"))
```
Dashboard
=======================================================================
Row
-----------------------------------------------------------------------
### Total Coronavirus Cases in Egypt
```{r, echo=FALSE}
valueBox(total_cases, icon = "fa-area-chart")
```
### Total Coronavirus Deaths in Egypt
```{r, echo=FALSE}
valueBox(total_deaths, icon = "fa-area-chart" , color="warning")
```
### Total Coronavirus Recovered Cases in Egypt
```{r, echo=FALSE}
valueBox(total_recovered, icon = "fa-area-chart" , color = "#00DDDD")
```
Row
-----------------------------------------------------------------------
### ``r paste("Deaths/Discharged :", total_deaths, "(", round((total_deaths/closed)*100,1),"% ),"," ",paste("Recovered/Discharged :", total_recovered, "(", round((total_recovered/closed)*100,1),"% )"))``
```{r, echo=FALSE}
valueBox(paste("Cloded Cases (Cases which had an outcome): ",closed))
```
### Currently Infected Patients
```{r, echo=FALSE}
valueBox(paste("Active Cases: ",active))
```
Row1{data-width=20}
-------------------------------------
### Distibution of Cases
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
DT::datatable(hk,options = list(pageLength = 50))
```
Row2
-------------------------------------
### Confirmed Cases per day
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart1
```
### Deaths per day
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart2
```
### Recovered Cases per day
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart3
```
Row3
-------------------------------------
### Total Confirmed Cases
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart4
```
### Total Deaths
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart5
```
### Total Recovered
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart6
```